home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
qb4bas45.zip
/
QB4BAS.BI
< prev
next >
Wrap
Text File
|
1989-09-30
|
31KB
|
886 lines
'*****************************************************************
'*** QB4BAS.BI - Assembly Support Include File ***
'*** ***
'*** Written by Harold Thomson ***
'*** ***
'*** Purpose: ***
'*** This include file gives the DECLARE statements for ***
'*** the assembly language functions and subroutines ***
'*** found in QB4BAS.LIB and QB4BAS.QLB. ***
'*** ***
'*****************************************************************
'
'*****************************************************************
'*** DATE Related Functions and SubRoutines ... ***
'*****************************************************************
'
'Function ****************** QDATECVT ******************* Function
'
DECLARE FUNCTION QDATECVT$ (InDate AS STRING, _
FunCode AS STRING)
'
'Function ****************** QDATE ******************* Function
'
DECLARE FUNCTION QDATE$ (FunCode AS STRING)
'
'Function ****************** QDATEIN ******************* Function
'
DECLARE FUNCTION QDATEIN$ (InDate AS STRING, _
FunCode AS STRING)
'
'Function ***************** QDATE2INT ******************* Function
'
DECLARE FUNCTION QDATE2INT% (InDate AS STRING)
'
'Function ***************** QINT2DATE ******************* Function
'
DECLARE FUNCTION QINT2DATE$ (BYVAL InDate AS INTEGER)
'
'Function ****************** QJULCALC ******************* Function
'
DECLARE FUNCTION QJULCALC% (CalcDate AS STRING, _
BYVAL Amount AS INTEGER)
'
'
'*****************************************************************
'*** DISK Related Functions and SubRoutines ... ***
'*****************************************************************
'
'SubRoutine **************** QDISKSTAT **************** SubRoutine
'
DECLARE SUB QDISKSTAT (DrvName AS STRING, _
FreeClusters AS INTEGER, _
TotClusters AS INTEGER, _
SectorSize AS INTEGER, _
SectorsCluster AS INTEGER)
'
'Function ****************** QDISKTYP ****************** Function
'
DECLARE FUNCTION QDISKTYP% ()
'
'Function ****************** QDRVSPACE ****************** Function
'
DECLARE FUNCTION QDRVSPACE& (DrvName AS STRING)
'
'Function ****************** QGETDRV ******************* Function
'
DECLARE FUNCTION QGETDRV$ ()
'
'Function ****************** QGETVOL ******************* Function
'
DECLARE FUNCTION QGETVOL$ ()
'
'SubRoutine **************** QSETDRV ***************** SubRoutine
'
DECLARE SUB QSETDRV (DrvName AS STRING)
'
'Function ****************** QSETVOL ******************* Function
'
DECLARE FUNCTION QSETVOL% (Volid AS STRING)
'
'
'*****************************************************************
'*** FILE Related Functions and SubRoutines ... ***
'*****************************************************************
'
'Function ****************** QCNTFILE ******************* Function
'
DECLARE FUNCTION QCNTFILE% (InFileName AS STRING, _
BYVAL Attr AS INTEGER)
'
'Function ****************** QCOPYFIL ******************* Function
'
DECLARE FUNCTION QCOPYFIL% (InFileName AS STRING, _
OutFileName AS STRING)
'
'Function ****************** QDELETE ******************* Function
'
DECLARE FUNCTION QDELETE% (FileName AS STRING)
'
'Function ****************** QEXIST ******************* Function
'
DECLARE FUNCTION QEXIST% (FileName AS STRING)
'
'Function **************** QFINDFIRST ******************* Function
'
DECLARE FUNCTION QFINDFIRST% (BYVAL Trec AS INTEGER, _
DrvStr AS STRING, _
BYVAL Attr AS INTEGER)
'
'Function **************** QFINDNEXT ******************* Function
'
DECLARE FUNCTION QFINDNEXT% (BYVAL Trec AS INTEGER)
'
'Function ****************** QFINDF ******************* Function
'
DECLARE FUNCTION QFINDF% (FileName AS STRING, _
BYVAL Attr AS INTEGER)
'
'Function ****************** QFINDN ******************* Function
'
DECLARE FUNCTION QFINDN% ()
'
'SubRoutine **************** QFATTR ***************** SubRoutine
'
DECLARE SUB QFATTR (Attr AS INTEGER)
'
'SubRoutine **************** QFDATE ***************** SubRoutine
'
DECLARE SUB QFDATE (Month AS INTEGER, _
Day AS INTEGER, _
Year AS INTEGER)
'
'SubRoutine **************** QFDATEI ***************** SubRoutine
'
DECLARE SUB QFDATEI (MDY AS INTEGER)
'
'SubRoutine **************** QFNAME ***************** SubRoutine
'
DECLARE SUB QFNAME (FileName AS STRING)
'
'SubRoutine **************** QFSIZE ***************** SubRoutine
'
DECLARE SUB QFSIZE (Size AS LONG)
'
'SubRoutine **************** QFSTAMP ***************** SubRoutine
'
DECLARE FUNCTION QFSTAMP (Qfilname AS STRING, _
Qfiltime AS STRING, _
Qfildate AS STRING)
'
'SubRoutine **************** QFTIME ***************** SubRoutine
'
DECLARE SUB QFTIME (Hrs AS INTEGER, _
Min AS INTEGER)
'
'Function ****************** QFCREATE ******************* Function
'
DECLARE FUNCTION QFCREATE% (FileName AS STRING, _
BYVAL FAttr AS INTEGER, _
Handle AS INTEGER)
'
'Function ****************** QFOPEN ******************* Function
'
DECLARE FUNCTION QFOPEN% (FileName AS STRING, _
BYVAL FAccess AS INTEGER, _
Handle AS INTEGER)
'
'Function ****************** QFREAD ******************* Function
'
DECLARE FUNCTION QFREAD% (BYVAL Handle AS INTEGER, _
Buffer AS STRING, _
BYVAL ReadLen AS INTEGER, _
BytesRead AS INTEGER)
'
'Function ****************** QFSETEND ******************* Function
'
DECLARE FUNCTION QFSETEND% (BYVAL Handle AS INTEGER)
'
'Function ****************** QFSETREC ******************* Function
'
DECLARE FUNCTION QFSETREC% (BYVAL Handle AS INTEGER, _
BYVAL RecLen AS INTEGER, _
BYVAL RecNum AS INTEGER)
'
'Function ****************** QFSETRECL ****************** Function
'
DECLARE FUNCTION QFSETRECL% (BYVAL Handle AS INTEGER, _
BYVAL RecLen AS INTEGER, _
BYVAL RecNum AS LONG)
'
'Function ******************** QFLOF ******************** Function
'
DECLARE FUNCTION QFLOF& (BYVAL Handle AS INTEGER)
'
'Function ****************** QFWRITE ******************* Function
'
DECLARE FUNCTION QFWRITE% (BYVAL Handle AS INTEGER, _
Buffer AS STRING, _
BYVAL WriteLen AS INTEGER, _
BytesWritten AS INTEGER)
'
'Function ****************** QFCLOSE ******************* Function
'
DECLARE FUNCTION QFCLOSE% (BYVAL Handle AS INTEGER)
'
'Function ****************** QMOVEFIL ******************* Function
'
DECLARE FUNCTION QMOVEFIL% (InFileName AS STRING, _
OutFileName AS STRING)
'
'Function ****************** QPARSEF ******************* Function
'
DECLARE FUNCTION QPARSEF% (Pstring AS STRING, _
BYVAL Pseg AS INTEGER, _
BYVAL Pptr AS INTEGER)
'
'Function ****************** QRENAME ******************* Function
'
DECLARE FUNCTION QRENAME% (InFileName AS STRING, _
OutFileName AS STRING)
'
'Function ******************* QSHARE ******************** Function
'
DECLARE FUNCTION QSHARE% ()
'
'Function ****************** QTREAD ******************* Function
'
DECLARE FUNCTION QTREAD% (BYVAL Handle AS INTEGER, _